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ERROR CMECK FOR 
>CBASIC RROGR^VM EISFT 

by Tom Freeman 



Editor: The Smart Programmer Tias long 
endeavored to provide the best possible 
format for programs to be keyed in by our 
readers. The article that follows provides 
a new means of ensuring that programs get 
from us to you without errors. While most 
of the material in The Smart Programmer 
has never appeared elsewhere, this article 
was found in the public domain. We deemed 
it so important to the 99/4A community that 
we offer it to our readers. As is our 
policy, we obtained permission from the 

to reprint the .^ticle from the LA 
newsletter (Va Topics^. This 
represents a milestone for the 
community. Our future XBASIC 
offerings will follow the guidelines of 
this article. 
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RM, Editor 
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Have you ever typed In a TI-99/4A 
version of a BASIC program from a magazine 
and noticed that the mother versions have 
little numbers at the end of the lines that 
you don't have? They were for error checking 
on your typing, to ensure no mistakes. Have 
you ever laboriously typed in a long program 
and run it, only to find that it crashes, or 
doesn't work as , it is supposed to. all 
because of a simple typing error that you 
can't find? So why doesn't TI have one? NOW 
YOU DO!! 

This may >be the most useful program 
that I have published for general use. 
because almost everyone does BASIC programs 
at one time or another. It involves only 



one extra step for the programmer, and one 
for the user who is typing the published 
program in. It is really a rather simple 
method, and depends on the manner in which TI 
stores BASIC programs. Please note, 
however, that it requires a memory expansion 
and disk drive, and works only in Extended 
BASIC (although BASIC programs can be 
entered in XBASIC. SAVEd, and then RUN in 
BASIC). 

You may remember the format in which 
"MERGE" type programs are stored on disk. 
If you don't, see our article {LA Topics) a 
couple of months back on the various formats 
in which programs are stored. The MERGE 
format is actually a duplicate of the way in 
which the actual program is stored in memory, 
or on disk, the difference being that it 
is a display type file, with each record 
starting with two bytes for the line number, 
and then the actual program line. In 
memory, however, the program lines are 
stored contiguously, and in seemingly random 
order (actually the order depends on the 
order in which they were entered). A 
separate line number table is stored below 
the program area and keeps track of the line 
numbers and pointers to where each line 
begins. Now each line consists of one byte 
"tokens" for all reserved words (see the 
list I published last month In LA Topics) 
with all strings, including the names of 
subprograms such as LOAD, SCREEN, etc., 
being spelled directly. 

When you enter any line in XBASIC 
(either a command or a program line with the 
line number coming first) It is first moved 
to the so-called "Edit Buffer" at address 
>8C0 in VDP. The BASIC bias is preserved. 
The purpose of this is that If you press 



December 1986 PAGE 1 

THE SMART PROGRAMMER 



FCTN 8 (REDO), then the whole line or lines 
can be retrieved. Next, everything is 
"crunched" by replacing each reserved word 
with its token, subtracting the BASIC bias 
from strings, computing their length, etc. 
and placing the result in the "crunch buffer" 
at >820 In VDP. Once it is there, it can be 
transferred to the appropriate place in 
memory expansion. This is the area that is 
used when my program computes the "checksum" 
by merely adding the value of each byte! The 
number is never allowed to go over hex >FF — 
the high byte is Ignored (thus, in decimal, 
no number over 255). The assumption is that 
It is extremely unlikely, probability 
approaching zero, that a small number of 
mistakes will result in a number that differs 
by exactly 256 or a multiple thereof. The 
one exception Is that if you transpose two 
characters, there's nothing I can do about 
that! 

Now what does the programmer do? First, 
his program must be completely debugged, as 
no changes can be made after the checksums 
are computed, or they will of course differ. 
Next he SAVEs his program in MERGE format. 
Now. the following program must be run on the 
result: 

> 100 ! CREATE CHECKSUMS FOR XB 
ASIC PROGRAMS, BY TOM FREEMA 
N, LA 99'ERS 1250 

> 110 ! SHOULD BE USED TOGETHER 

WITH "CHECK" ASSEMBLY FILE 
THAT WILL PRINT CHECKSUMS ON 
SCREEN 1099 

> 120 DISPLAY AT (2,1) ERASE ALL 
: "CREATE CHECKSUMS FOR XBASI 
C ERROR CHECKING": : " by 
Tom Freeman" !085 

> 130 DISPLAY AT (10, 1) : "INPUT 
MERGE FILE?":" DSKl." 1007 

> 140 DISPLAY AT(13,1) : "OUTPUT 

MERGE FILE?":" DSKl." !108 

> 150 ACCEPT AT(11,3)SIZE(-15) 
BBEP:I$ :: OPEN #1:I$,VARIAB 
LE 163, INPUT '192 

> 160 ACCEPT AT(14,3)SIZE(-15) 
BEEP:0$ :: OPEN #2:0$,VARIAB 
LE 163, OUTPUT 1053 

> 170 DISPLAY AT(20,1} :"ANALYZ 
ING LINE": "CHECKSUM IS " ! 01 
4 

> 180 LINPUT #1:A$ :: IF LEN(A 
$}-2 THEN CLOSE #1 :: PRINT 
#2:CHR$(255)&CHR$(2S5) :: CLO 
SE #2 :: STOP 1115 

> 190 Z"ASC(A$)*256+ASC(SEG${A 
$,2,1)):: DISPLAY AT (20,15 }B 



EEP:Z 1141 

> 200 B$=SEG$(A$,3,163) : : L»LE 
N(B$):: IF L>157 THEN 230 !1 
62 

> 210 N=0 : : FOR X«l TO L : : Y 
=ASC(SEG$(B$,X,1)) :: N=N+Y : 
: NEXT X : : N«N AND 255 : : N 
$=STR$(N):: N$=RPT$ ( "0" , 3-LE 
N(N$))&N$ 1088 

> 220 DISPLAY AT(21,13)BEEP:N$ 

:: PRINT #2 : SEG$ (A$ , 1 ,L+1) & 
CHR$(131)&N$&CHRS(0) : : GOTO 
180 1252 

> 230 DISPLAY AT (22 , 1) BEEP : "WA 
RNING!":" LINE" ;Z; "IS TOO LO 
NGl": "PRESS ANY KEY TO CONTI 

NUE" 1123 

> 240 CALL KEY(0,K,S):: IF S=0 

THEN 240 ELSE PRINT #2:A$ : 
: GOTO 180 1232 

Notice the "!" and 3 numbers at the end 
of each line? The program was RUN on itself! 
Here is what happens. Each record of the 
MERGE file is read in. the first two bytes 
ignored (we don't need the line number) and 
the rest are added up. Next, the identical 
record is printed to the output file, with 
the addition of the token for "!" (REMark) 
and the 3 characters of the checksum. This 
will work even if the program line already 
contained a REMark (as in lines 100-110). 
THE USER MUST BE WARNED NOT TO TYPE THESE 4 
CHARACTERS, since they were not computed into 
the checksum. At the end (it may take a 
little while with a long program, but only 
needs to be RUN once), the programmer types 
NEW and MERGES In the output file, then SAVEs 
it in normal mode, or lists It to printer, or 
whatever. This is the form to be published. 

Now what the user must do once is type 
in the source code attached to the end of 
this article and assemble it (a CALL LOAD 
version is also supplied for those who don't 
have the Editor/Assembler). If the object 
code created was called "CHECK" then he must 
type the following upon entry into XBASIC: 
CALL INIT :: CALL LOAD("DSKx. CHECK") :: CALL 
LINK("CURSOR"). This one line with a line 
number can be SAVEd on disk and then RUN each 
time it is needed, rather than type the whole 
line. What the assembly routine at CURSOR 
does is some housekeeping such as moving the 
numbers 0-9 to character sets 13-14, changing 
the colors there, redefining the cursor, 
putting up the title screen, etc. and then 
turning on the user-defined interrupt. Now 
at every VDP interrupt (each 1/60 second), 
the routine at CHECK begins. The Interrupt 
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can be turned off with CALL LINKC'OFF") and 
back on with CALL LINKC'ON") at any time and 
the shape of the- cursor will tell you which 
mode you're iti. Now, EVERY TIME you enter a 
new program line (and for some reason after 
FCTN 8 REDO even if no changes are made) the 
checksum will appear at the bottom of the 
screen and one extra line scrolled up. HERE 
IS THE KEY --IT SHOULD CORRESPOND TO THE 
ONE PUBLISHED THAT YOU ARE ATTEMPTING TO 
COPY IN. Hence, no errors!!! 

I think the source code is sufficiently 
commented to explain what is going on. I 
must add that I spent many hours with MG 
Explorer, by Doug Warren, finding out WHAT is 
going on when you enter a line in XBASIC. 
The address range in GROM of >6AA0 to >6AD8 
should be broad enough to cover the various 
versions of XBASIC out there, since they 
differ by a few bytes here and there (the 
actual range needed In my module was >6AAE to 
>6ACA. This area contains the loop where the 
first key press on entry of a new line is 
located. As soon as the first key is 
pressed, then the GROM code moves on. I 
needed this area so as to reset the flag that 

indicates the checksum has been printed, in 

order to avoid having it printed again and 

again! Notice the fairly cumbersome method of 

peeking at the GROM address, which must then 

be reset, since just looking at it destroys 

it! I discovered that the line 

is SAVEd at BOTH >8304 and 

when it is at both is the 

finished being filled with the 

If you are entering a direct 

is not used until much later, 

clear it at the beginning of 

the routine won't get 



number entered 

>834A and only 

crunch buffer 

crunched line. 

command, >8304 

which is why I 

each entry, so 
confused. 



Finally, if all the criteria are met, 
>8304 = >834A and KEY 08375) contains the 
valid entry key (enter = >0D, up arrow = >0B 
or down arrow = >0a), then the meat of the 
program goes to work, computes the checksum 
and puts it on the screen after an extra 
scroll (XBASIC does its own scroll after I'm 
finished). Please note that I use BLWP 
©XMLLNK with DATA SCROLL instead of adding 
the whole routine. This saves a lot of 
typing. However, for those of you who are 
interested, I am also providing the entire 
routine done by DISkASSEMBLERTM. so that you 

an E/A assembly file if you 
one exists in Bank 1 of 
>6000->7FFF, and hence can't 



can place it in 
wish, as this 

XBASIC's ROM at 
be used by E/A. 



I'm hoping that everyone finds this 



program useful and that it is widely used 
I'm only sorry I didn't write it three years 
ago! Finally, I would like to thank Doug 
Warren for writing Explorer, without which I 
could not have done this, since I needed to 
find out where XBASIC does what! (I also must 
blame Doug for my bleary eyes!) And. I 
especially would like to thank Craig Miller 
for his Invaluable help and advice while I 
was writing the program. As Craig slowly 
leaves the TI community, we will all feel the 
loss. 



1 !CALL LOAD VERSION OF OBJE 
CT CODE FOR CHECKSUM PROGRAM 
,BY TOM FREEMAN, LA 99ERS ! 20 


100 CALL INIT :: CALL L0AD(9 

460,0,0,0,0,0,0,106,160,106, 
216,0,10,11,13,0,0) !180 

110 CALL LOAD(9484, 0,126,66, 
66,66,66,126,0,31,31,32,32,8 
8,66,65,83,73,67,32,69) '144 
120 CALL LOAD(9504, 82, 82,79, 
82,32,67,72,69,67,75,69,82,3 

2,32,32,32,32,32,85,83,73,78 

) !107 

130 CALL LOAD(9526, 71, 32,67, 
72,69,67,75,83,85,77,83,32,3 

2,32,32,32,66,89,32,84,79,77 
) !119 

140 CALL LOAD(9548,32,70,82, 

69,69,77,65,78,44,32,76,65,3 

2,57,57,69,82,83,2,132,0,10) 
!052 

150 CALL LOAD(9570,17,2,2,36 
,0,7,2,36,0,48,192,68,2,33,0 
,176,6,193,4,32,32,32) !199 
160 CALL LOAD(9592,4,91,2,0, 
3,240,2,1,37,4,2,2,0,8,4,32, 
32,44,2,0,4,128) ! 121 

170 CALL LOAD{9614, 2, 1,39,22 

,2,2,0,80,4,32,32,44,2,0,7,0 

,4,32,32,36,4,32) 1166 

180 CALL LOAD(9636,32,24,0,3 

8,2,2,37,22,2,3,96,96,2,4,0, 

36, 192, 66, 172, 131, 6-,4) 1204 

190 CALL LOAD(9658,22,253,2, 

0,2,228,2,2,0,24,4,32,32,36, 
4,32,32,24,0,38,2,0) !067 

200 CALL LOAD (9680, 2, 228, 2,1 

,37,46,2,2,0,24,4,32,32,36,4 
,32,32,24,0,38,2,0) 1020 

210 CALL LOAD(9702,2,228,2,1 

,37,70,2,2,0,24,4,32,32,36,2 
,0,3,240,2,1,37,12) 1006 
220 CALL LOAD(9724,2,2,0,8,4 
,32,32,36,2,0,38,36,200,0,13 
1,196,4,91,2,0,3,240) !119 
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230 CALL LOAD (9746, 2, 1,37, 4, 

2,2,0,8,4,32,32,36,4,224,131 

,196,4,91,216,32,152,2) !239 

240 CALL LOAD(9768, 36,248, 6, 

224,36,248,216,32,152,2,36,2 

48,6,224,36,248,6,32,36,248, 

136,32) !133 

250 CALL LOAD{9790,36,248,36 

,250,26,8,136,32,36,248,36,2 

52,27,4,4,224,36,244,4,224,1 

31,4) !013 

260 CALL LOAD{9812,216.32,36 

,248,156,2,6,224,36,248,216, 

32,36,248,156,2,2,0,8,28,2,1 

} 1054 

270 CALL LOAD (9834, 37, 20, 2, 2 

,0,2,4,32,32,36,2,0,8,15,2,1 

,244,0,2,2,0,13) 1105 

280 CALL LOAD(9856,4,32,32,3 

2,5,128,6,2,22 '.^1,2,0,7,4,4 

,32,32,48,7,96,36,244) ! 204 

290 CALL LOAD(9878, 22, 62,2,1 

,0,3,152,33,36,254,131,117,1 

9,3,6,1,22,250,4,91,200,32) ! 

180 

300 CALL LOAD(9900, 131,4,131 
,4,19,49,136,32,131,4,131,74 
,22,45,7,32,36,244,208,160,1 
31,66) !038 

310 CALL LOAD (9922, 9, 130,2,0 

,8,32,2,1,39,22,4,32,32,44,4 

,224,37,2,184,49,37,3) !195 

320 CALL LOAD(9944,6,2,22,25 

2,200,11,36,246,4,32,32,24,0 

,38,2,0,2,226,193,96,37,2) !1 

38 

330 CALL LOAD (9966,2, 2, 0,10, 

2,3,0,100,2,6,0,2,4,196,61,3 

,6,160,37,94,5,128) 1027 

340 CALL LOAD{9988,192,194,6 

,6,22,248,193,5,6,160,37,94, 

194,224,36,246,4,91) !104 

350 CALL LOAD (16376, 79, 78, 32 

,32,32,32,37,244) 1042 

360 CALL LOAD{16368,79,7O,70 

,32,32,32,38,14) !240 

370 CALL LOAD(16360,67,72,69 

,67,75,32,38,36) 1002 

380 CALL LOAD{16352,67,85,82 

,83,79,82,37,122) ! 053 

390 CALL LOAD(8194,39,22,63, 

224):: CALL LINK ( "CURSOR" )! 1 
43 



* SCROLL ROUTINE 

* 



- FOR USE IN 

OTHER PROGRAMS 



-<« 



* WORKSPACE MUST BE >83E0 

* 



SCROLL 



AB 



AA 



AD 



AC 



AE 



AF 



LI 

LI 

CLR 

MOV 

BL 

LI 

LI 

LI 

LI 

BL 

MOVB 

SWPB 

MOVB 

DEC 

JNE 

SWPB 

MOVB 

MOVB 

B 

CLR 

MOVB 

STWP 

MOVB 

MOVB 

INC 

INC 

DEC 

JEQ 

CI 

JLT 

MOVB 

ORI 

MOVB 

STWP 

MOVB 

INC 

DEC 

JNE 
MOV 
JNE 
B 

MOVB 
ORI 

MOVB 
NOP 
MOVB 
B 



>O2E0 
>O02O 

R6 



*R5 



*R5 
*R5 



*R15 



R12 

R10 

R9 

Rll. 

•AA 

R5,>8C00 

R4, >02EO 

Rl, >7F80 

R2, >O01C 

®AF 

R1,*R5 

Rl 

Rl 

R2 

AB 

Rl 

Rl 

Rl 

*R6 

R8 

®>83F5. 

R7 

RIO, *R15 

®>88O0, *R7+ 

RIO 

R8 

R12 

AC 

R8, >000C 

AD 

®>83F3, *R15 

R9, >4000 

R9, *R15 

R7 

*R7+,®>8C00 

R9 

R8 

AE 

R12,R12 

AA 

*R11 

«>83E9,*R15 
R4, >4O0O 
R4,*R15 

Rl,e>8CO0 
*R11 



'^ 



* SOURCE CODE TO WRITE CHECKSUM 

* BY TOM FREEMAN, LA 99ERS 

* THIS IS PUBLIC DOMAIN, PLEASE 

DBF ON , OFF , CHECK , CURSOR 
VMBR EQU >202C 
VMBW EQU >2024 



FOR ENTERED XB LINE ON SCREEN 



DISTRIBUTE IT WIDELY! 



-^ 
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Lt with n!,t°r ^ ''°"^V^' most sophisticated machine ever offered in the family and small business area to 
marhi^Jh ^ ;< '^"'^" ^""^ development, including input from more than one hundred users tWs 
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99/4(A) COMPATIBLE RUNS OVER 100 
EXISTING TI CARTRIDGE PROGRAMS 

IBM TYPE KEYBOARD Included 

V9938 ADVANCED VIDEO DISPLAY 
PROCESSOR 

Is software compatible with TMS9918A (used in 
99/4A). 

Uses 46 registers for high speed "HARDWARE" gra- 
phics commands. 

Commands include: 

DRAW SEARCH POINT (status) BLINK 
FILL MOVE Animation And more 

Uses color Pallet of 512 colors on the screen at a 
single time. 7 modes of graphics operation; some 
modes allow 256 colors. True BMG (Bit-Mapped- 
Graphics) operation. Both composite (like the 99/4A) 
and analog RGB outputs (like the Atari ST and 
Commodore Amiga), Supports up to 256 colors per 
screen in the 256 by 424 mode or 16 colors in the 512 
by 424 mode. Comes with 128K bytes of video RAM 
(8 times the amount of the 99/4A) 

Software Support Supplied with the 9640 

MYARC DOS (similar to MS-DOS 2.1) 
MY ARC ADVANCED BASIC 

—Compatible with TI Extended BASIC and 
MYARC Extended BASIC 11 

—Supports all modes of the Video Processor 
(including 80 column) 

—Supports Windows 

—Supports easy to program Mouse Commands 

—Combined Text and Bit-Mappcd-Graphics Modes 

—Drawing Commands such as Circle, Rectangle, 
etc. are built-in 

Program patches to make Tl-Writer 1) more power- 
ful 2) display 80 columns 

Program to SAVE your 99/4A cartridges to disk 



MasterCard 







99/4(A) COMPATIBLE RUNS OVER 95% OF 
ALL ASSEMBLY LANGUAGE PROGRAMS 
& UTILITIES 

REAL TIME CLOCK CHIP 
MULTIPLAN ALSO 80 COLUMNS 

SOUND CHIP COMPATIBLE WITH 99/4A 

(3 simulataneous tones, 1 noise) 

FASTER— At least 34 times 
TMS 995 U-Processor 

Runs same instruction set as 9900 used in 99/4 A plus 
4 new ones. Pipelined processor (i.e. u-processor 
performs several functions simultaneously). 

Awesome amount of RAM 

512K of CPU RAM (user configurable between CPU- 
RAM, RAM-DISK or PRINT-SPOOLER). Expand- 
able to 1 megabyte with MYARC 512K Card. In 
99/4A mode 64K of the 512K becomes GROM and 
16K CARTRIDGE ROM 

TI 9995 Processor Chip— 12 MHz 

256 Bytes ULTRA High Speed on Chip RAM. Pre- 
fetch on Instructions. Post-store on Instructions. 

Built-in Mouse Interface 

Installed hardware allows for the MS mouse to be 
connected directly to the 9640 board. Basic language 
support for the mouse built in. Uses the industry- 
standard Macintosh mouse commands. 

Hardware and Software Support for the most 
commonly-used peripherals 

Floppy Disk Controllers include MYARC, Texas 
Instruments, and Corcomp. RS232 cards include 
MYARC, Texas Instruments, and Corcomp. Ram- 
Disks include Horizon. 



Disk Only Software 

P.O. Box 244 

Lorton, Virginia 22079 





or call , 

1-800-446-4462. At the tone, enter 897335 for recorded order message. Touchtone phone is required 

Alternate is (301) 369-1339. No Touchtone is required. 
Delphi: TELEDATA- CompuServe: 74405,1 207-MCl: TDG— TELEX: 6501 106897 MCI 




BRTTLE aVER TITHN 

Your snori range scanner has located 
Torg cra'i ihai a^e on] lo desiroy your 
outpost on Titan Time is cruciaf^ Can you 
maneuver your Drone ihrough rhe d^m^n^ 
ishmg weak areas m theTorgssc^nnerand 
weapon ain>ing systems Howlongcanyou 
stave Qff the Torgsariack'^ High speed, fast 
achon spec^^l saund elfecrs high resolu- 
tion iuW color graphics. 10 levels O' dif^ 
licully random game boarcjs — no f*o 
gameB o'ay alike WOl you be abie [q repair 
additional lighler drones m Urns lo save 
your outposf^ 




r'l'n:: 



During th* Ihird dynaily ot th< 
ancl«nl-«mpir« thtr« rulad > 
great Phanoh virith vnormoum 
- w«att|i. Ha commanctvclthBtali 
7his wealth shaH be placed in a 
tpaclai tomb that w»% bum over 
a vary de^p pil^ 

Th« myfha about ttte tomb tell 
ua of Irap doors an^ walls ttial 
move. We've also heard that ihe 
kings ghost jasttll-there protect- 
ing his treasure to this day! 
Automatic multi'l«vel with free 
plays. High resolution full color 
, graphics. Special sound effects. 
The Tombs are different each 
lime you playf How long can you 
last in the Pharaohs Tomb? 




Q^ 



rftf(*«' 



Casino Black Jack h4s been designed 
to feacfi you when to stand, hit, split 
parrsanddouble down. It's like having a 
professional Black Jack player helping 
you increase your odds of winning by 
telling you what to do depending upon 
the dealers up card. Along with its High 
resolution co^or graphics you have the 
following options: Stand, hit, double 
down, split a pair and insurance. 

Great practice for card counters as 
you can choose to be dealt from a 
singledecK 2 decks or 4 decks. Three 
modes of play include, teach moden 
test mode and the play cnly mode. 
Hours of educational fun! 



fj[ii';ilUi:irJ'^ :!jr';i)iur.!^ 
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^'Fifieen men on th« dead mane 
ctiest Yo-Ho-Ho, and a bottle of num." 

Your ftve man diving team has 
totind the tost treasure of Btackbeerd 
the piratel Unfortunately it {* at the 
tjottom of a shark infested see and it Is 
protected by two giant OciopuSMff 

'"■" - Warn trig "■ .""••. 

The sharks haven't been fed since 
the lest time someone played this 
game and ihey love to eat diyersIM 

Automatic multi-level game with 
free play*. Beautiful full color graphics 
and special sound effects. WHtten in 
Extended Basic- 










LJ' T f lTg ^i 




THi: CRA/Y ! !.;.".■ HOi'SL 



Fnl^f the Cfdzy Fun House al y€y\jf own 
fisK where Smiley Grouchy anrt ineit b 
1riend:> c*re wdifing for you lomake ^i wfOng 
lurn This c^Eizy garnelias viBitile ana mvii 
ibfe passageways whe^e you can chase or 
De chased cloflge shooln^narackuppomls 
lorenlra rne^^ H pushes yourTr 99 M 99^4 A 
in ex(ennetl hjSH: laifs u^rirriale l^m^s wiTh 9 
screens dnt]32ie^/eiso1iasrac|jon cniorfui 
graphics ancf superh sound ellefii 

Opfionai lest fnode aMnws you (o siaM 
ai any Eev^l JoysliChs and enfencJed basic 
are requ 

Can you learn ihe secrei Daiierrsof eacn 
screen '^ 



MG GAMES 

All of the above 6 Gomes 
on one Menu — Driven disk 

ONLY $20 

(X— Basic required, Includes shipping) 







At laM a cracker that won't gat 
soggy. Sou par Crackar to the 
raecua. CRUNCH CRUNCH 
QOBBLC GOBBLE - Out of tha 
40up the letters fly. This fast 
action game was desiflne<l for 
the younger computer user, with 
a prompt mode that displays the 
next letter to be eaten, Full of 
rewards and colorful graphics. 
Eating soup has never been this 
much fun. Optional speech- ^ 
Joysticks and extended basic 
fequired. 



^ 



OTHER MG ITEMS AVAILABLE 

Smart Programming Guide For Sprites SPGS 6.95 

The Orphan Chronicles B007 9.95 

Advanced Diagnostics UT01 19.95 

DiSkASSEMBLER UT03 19.95 

Night Mission - Disk ^ . - G10D 19.95 

Night Mission - Cass G10C 19.95 

Spare Gram Kracker Manual GK04 2.50 * 

Gram Kracker Battery GK05 2.50 * 

Gram Kracker Utility I Disk GK03 10.00* 

Prom Set For Corcomp Disk Controller Card . . . PR01 34.95 * 

Video information Directory Program - IBM . . . VID1 59.95 

Video Information Directory Program - Tl PRO. . VID2 59.95 

• Price Includes Shipping & Handling - All Other Items Please Add 2.00 per Order 



1475 W. CYPRESS AVE.. SAN DIMAS CA 91773 - (714) 599-1431 

Order with a Check or Money Order or contact your favorite dealer 



'^ 



r 



^ 



VSBR 

VSBW 

VWTR 

XMLLNK 

SCROLL 

NSAVE 

LSAVE 

FAC 

GRMRA 

GRMWA 

DONE 

SAVll 

SAVEGA 

LOWAD 

HIAD 

ENTER 

COUNT 

CURl 

CUR2 

INVVID 

TITLEl 

TITLE2 

TITLE3 

GETDEC 



GD 



CURSOR 



CRl 



(?r 



EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

BSS 

DATA 

DATA 

TEXT 

TEXT 

TEXT 

CI 

JLT 

AI 

AI 

MOV 

AI 

SWPB 

BLWP 

RT 

LI 

LI 

LI 

BLWP 

LI 

LI 

LI 

BLWP 

LI 

BLWP 

BLWP 

DATA 

LI 

LI 

LI 

MOV 

A 

DEC 

JNE 

LI 

LI 

BLWP 

BLWP 

DATA 

LI 

LI 

LI 

BLWP 



>2028 

>2020 

>2030 

>2018 

>0026 

>8304 

>8342 

>834A 

>9802 

>9C02 







>6AA0 

>6AD8 

>00OA, >0B0D 

8 

>007E, > 

>1F1F 

XBAS 

US 

'BY TOM 

R4,10 



ADDRESS OF ROUTINE IN ROM INDEXED ON >6010 

EQU >7ADA IN MY XB MODULE 
ADDRESS WHERE LENGTH OF CRUNCHED LINE IS SAVED 

GROM READ ADDRESS PORT 
GROM WRITE ADDRESS PORT 



/ADDRESS RANGE IN GROM WHERE FIRST KEY PRESS 
\0N COMMAND LINE IS REQUESTED 
ENTER KEY, UP AND DOWN ARROW 



GD 
R4 
R4 
R4 
Rl 
Rl 
OVSBW 



7 

>30 
Rl 
>B0 



4242,>4242,>7E00 HOLLOW CURSOR DATA 

INVERSE VIDEO COLORS 
IC ERROR CHECKER ' 
ING CHECKSUMS 
FREEMAN, LA 99ERS ' 

/IF NUMBER IS 10+ THEN NEED TO GET TO >41 {"A" 

\NOT >3A 

MAKE IT AN ASCII CHARACTER 

THIS IS BASIC BIAS OF >60 PLUS >50 TO GET TO 
TO MSG ALTERNATE CHARACTER SET AT ASCII 128 
WRITE ON SCREEN 



R0,>03F0 

R1,CUR1 

R2,8 

@VMBR 

R0, >480 

Rl , LBUF 

R2,80 

OVMBR 

R0, >700 

OVMBW 

AXMLLNK 

SCROLL 

R2, TITLEl 

R3,>6060 

R4,36 

R2,R1 

R3, *R2+ 

R4 

CRl 

R0,>2E4 

R2,24 

@VMBW 

®XMLLNK 

SCROLL 

R0,>2E4 

R1,TITLE2 

R2,24 

aVMBW 



SAVE ORIGINAL CURSOR PATTERN AT CURl 
/THE 80 BYTES FROM >480 TO >4CF ARE ASCII 
157 ("0" TO "9"). TEMPORARILY STORED AT 
\LBUF 



48- 



NOW PUT THEM AT >700 AS ALTERNATE CHAR. SET 



SCROLL UP 1 LINE 



ADD BASIC BIAS TO TITLE CHARACTERS 



WRITE 1ST LINE 



SCROLL AGAIN 



WRITE 2ND LINE 
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BLWP 

DATA 

LI 

LI 

LI 

BLWP 



aXMLLNK 

SCROLL 

R0,>2E4 

Rl, TITLES 

R2,24 

eVMBH 



SCROLL AGAIN 



f?^ 



WRITE 3RD LINE 

* CALL LINK ("CURSOR") DOES THE SETUP AND CONTINUES ON TO "ON" 

* CALL LINK ("ON") STARTS HERE AND DOESN'T NEED THE SETUP 



ON 



OFF 



LI 

LI 

LI 

BLWP 

LI 

MOV 

RT 

LI 

LI 

LI 

BLWP 

CLR 



R0,>03F0 
Rl , CUR2 
R2,8 
aVMBW 
R0, CHECK 
R0,0>83C4 

R0,>03F0 
Rl , CURl 
R2,8 
•VMBW 
•>83C4 



LOAD THE HOLLOW CURSOR INTO VDP 

LOAD THE INTERRUPT ADDRESS INTO THE ISR 

\( INTERRUPT SERVICE ROUTINE) HOOK AT >83C4 



RELOAD THE ORIGINAL CURSOR 

CLEAR THE ISR HOOK (TURN OFF INTERRUPT) 



CHECK 



RT 

MOVB SGRMRA , eSAVEGA 

•SAVEGA 

OGRMRA,0SAVEGA 

•S A VEGA 

•SAVEGA 



CHECKl 



SWPB 

MOVB 

SWPB 

DEC 

C 

JL 

C 

JH 

CLR 

CLR 

MOVB 

SWPB 

MOVB 



"PEEK" AT THE CURRENT GROM ADDRESS AND SAVE 
IT AT SAVEGA, MSB 1ST. GROM ADDRESS IS NOW 
INDETERMINATE 

ADJUST FOR AUTO INCREMENT 



9SAVEGA , ttLOWAD TEST FOR THE LOW END OF RANGE WHERE START OF 



CHECKl 

9S AVBGA , 9HIAD 

CHECKl 

SDONE 

9NSAVE 



COMMAND LINE IS, JUMP OUT IF TOO LOW 

HIGH END OF RANGE 

JUMP OUT IF TOO HIGH 
RESET FLAG FROM PREVIOUS CHECKSUM ROUTINE 
THIS CORRECTS FOR A MYSTERIOUS ERROR I FOUND I 



f^ 



93 AVEGA , «GRHWA RESET GROM ADDRESS TRHOUGH GRMWA PORT 
9SAVEGA 
9SAVEGA,0GRMWA 
•NEXT 4 LINES SET THE "INVERSE VIDEO" FOR CHECKSUMS-CAN BE DELETED 

LI R0,>81C RESET COLORS FOR CHARACTER SETS 13-14 AT EVERY 

INTERRUPT (XB ALWAYS RESETS TO DEFAULT) . DELETE 
THESE 4 LINES IF YOU DON'T LIKE THE INVERSE 
VIDEO EFFECT 

*NEXT 10 LINES CHANGE SCREEN & CHAR COLORS WHILE IN CHECKSUM MODE 
*AND CAN BE DELETED IF YOU DON'T LIKE THE EFFECT 



LI Rl , INWID 
LI R2,2 
BLWP 9VMBW 



COL 



LI 


R0, >80F 


LI 


R1,>F400 


LI 


R2,13 


BLWP 


9VSBW 


INC 


R0 


DEC 


R2 


JNE 


COL 


LI 


R0,>0704 



START OF COLOR TABLE FOR CHAR SET 

WHITE ON BLUE 

13 COLOR SETS 

WRITE A BYTE TO COLOR TABLE 

NEXT COLOR SET 







SCREEN COLOR 4 (DARK BLUE) 



BLWP 9VWTR 
*END OF OPTIONAL LINES 

ABS 9D0NE 



CHECK2 



JNE 

LI 

CB 

JEQ 

DEC 

JNE 

RT 



RETURN 
Rl,3 



/IF THE ROUTINE WAS ALREADY DONE 

\GET OUTTA HERE! 
CHECK FOR THE 3 VALID ENTRY KEYS AND LEAVE IF 
9ENTER(R1) ,9>8375 THERE AREN'T ANY. NOTE USE OF INDEXING 
CI IF VALID KEY THEN GO ON 

Rl GO FOR MORE 

CHECK2 



:^ 



1^^- 
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CI 



(^ 



C2 



DO 



Dl 



* 
* 

* 




RETURN 

* 

LBUF 



MOV 

JEQ 

C 

JNE 

SETO 

MOVE 

SRL 

LI 

LI 

BLWP 

CLR 

AB 

DEC 

JNE 

MOV 

BLWP 

DATA 

LI 

MOV 

LI 

LI 

LI 

CLR 

DIV 



9NSAVE , «NSAVE /WHEN >8304 CONTAINS A NON ZERO KEY AND IS = 



BL 

INC 

MOV 

DEC 

JNE 

MOV 

BL 

MOV 

RT 



END 



RETURN 

©NSAVE , »FAC 

RETURN 

ODONE 

»LSAVE,R2 

R2,8 

R0,>0820 

Rl , LBUF 

eVMBR 

©COUNT 



\WHAT IS IN >834A THEN WE'RE READY TO GO! 



INDICATE THE CHECKSUM IS ABOUT TO BE WRITTEN 
GET THE LENGTH BYTE OF CRUNCHED LINE 
MOVE TO LSB 

CRUNCH BUFFER 

WHERE WE WILL STORE IT 

MOVE IT 

COUNT WILL CONTAIN CHECKSUM, IN BINARY 



*R1+,«C0UNT+1 /ADD EACH BYTE OF CRUNCHED LINE TO IT, 1 BY 1 



R2 

C2 

R11,»SAV11 

9XMLLNK 

SCROLL 

R0,>2E2 

»C0UNT,R5 

R2,10 

R3,100 
R6,2 
R4 
R3,R4 



•GETDEC 
R0 

R2,R3 

R6 

Dl 

R5,R4 

OGETDEC 

»SAV11,R11 



I BECAUSE WE ARE ADDING BYTES, WHEN WE GO OVER 
\FF, THE CLOCK GOES BACK TO ZERO 
SAVE THE RETURN ADDRESS 

SCROLL UP THE SCREEN 

3RD COLUMN, BOTTOM ROW OF SCREEN 

MOVE THE VALUE AT COUNT (WORD VALUE BUT LESS 

THAN 256, TO R5 

R2 AND R3 CONTAIN THE DIVISORS 

2 LOOPS FOR 100 'S AND 10 'S PLACE 

ASL DIVISION IS DONE THIS WAY. VALUE OF 1ST R 

IS DIVIDED "INTO" 2ND 4(E.G. R3 INTO R4) . THE 

2ND REG IS ACTUALLY 2 CONTIGUOUS REGISTERS. 

THE QUOTIENT IS PLACED IN THE FIRST AND THE 

REMAINDER IN THE 2ND . ORIGINALLY THE FIRST MUST 

BE 0, OR THERE WILL BE AN "OVERFLOW" 

SO R4 NOW CONTAINS THE INTEGER QUOTIENT 

CONVERT IT TO ASCII AND PUT ON SCREEN 

NEXT SCREEN POSITION 

NEXT DIVISOR 

ANY MORE TO DO? 

I'S PLACE IS THE REMAINDER FROM 2ND DIVISION 
PUT THIS ONE ON SCREEN TOO 
RESTORE RETURN ADDRESS 
AND RETURN 

THIS IS END OF PROGRAM AND IS A CONVENIENT PLACE 
TO PUT THE BUFFER, WHICH HAS NO DATA TO START 



/ 



A.R O U M E IsJTS 



m 



by Richard M. Mitchell 

You may have noticed that there are 
several TI XB statements that allow optional 
arguments. For instance, CALL HCHAR can 
include the number of repetitions of a 
character or the argument can be omitted. 
User-written Assembly code can also utilize 
optional arguments. 

Once an XB program has LINKed to 
Assembly code, the address >8312 contains the 
number of arguments passed, as explained on 



page 278 of the E/A manual. Thus, a simple 
compare/jump structure can be employed to 
make arguments optional. 

The type of argument passed can also 
allow options, such as directing branching, 
but I have been unable to ascertain from the 
E/A manual where the argument identifiers 
reside in the XB environment, as 
only the locations for BASIC, 
location Is >8300 through >830F 
Scott Darling for providing this 
including a compare/Jump structure on the 
identifiers, some nifty tricks can be 
employed. For instance, if a base conversion 
program is being written, a number could 



it provides 
Well, the 

(thanks to 

info). By 
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indicate a branch to a decimal to hex 
routine, with a string indicating a branch to 
a hex to decimal routine! As detailed on page 
278 of the E/A manual, the argument 
identifiers are numbered through 5. 

Here is a simple program that illustrates 
some of the techniques described in this 
article (see what you can come up with!): 



VMBWBB is not as efficient in speed or bytes as 
VMBW with pre-biased text, it does enhance the 
readability of the source code and is far more 
efficient than similar routines that utilize 
VSBW. VSBW resets the VDP address on each 
call, while the VMBWBB routine takes advantage 
of VDP's auto-incrementing addressing feature. 
I haven't tried using VMBWBB with other biases, 
so you might want to experiment with that! 



(^ 





DEF 


EXAMPL 




UTILWS 


EQU 


>2C38 




SETWDA 


EQU 


>24CA 




ARGIDS 


EQU 


>8300 




ARGQTY 


EQU 


>8312 




GPLWS 


EQU 


>83E0 




VDP WD 


EQU 


>8C0O 




EXAMPL 


LWPI 


MYWS 






MOVB 


•ARGQTY, R 4 


# arg's 




SRL 


R4,8 






CLR 


R5 






LI 


R0,->1E 




EXAl 


CI 


R4,0 


- 1 optional 




JEQ 


EXIT 


- 1 arguments ! 




MOVB 


0ARGIDS(R5} 


, AARGNOW 




AB 


9ASCII0,aARGN0W 




AI 


Re,>20 


next row 




LI 


R1,MSG 






LI 


R2,15 






BLWP 


aVMBWBB 






INC 


R5 






DEC 


R4 






JMP 


EXAl 





EXIT 



LWPI GPLWS 
B ff>006A 



VMBWBB 



VWTLOB 



DATA 

BL 

MOVB 

AB 

MOVB 

DEC 

JNE 

RTWP 



UTILWS, $+2 

•SETWDA 

*R1+,R3 

•BIAS,R3 

R 3, •VDP WD 

R2 

VWTLOB 



'VMBW 



I 



I with 

I BASIC 

{bias! 

I 

t 



Here is an XB program that utilizes -the 
above A/L code: 

> 100 CALL CLEAR 1209 

> 110 CALL INIT :: CALL LOAD ( " 
DSK2.ARGID/0") !015 

> 120 CALL LINKC'EXAMPL'M, "HE 
LLO",A,A$,B{) ,B$() ) !044 

> 130 CALL KEY{5,K,S):: IF S<1 

THEN 130 ELSE END 1217 

The program will display the argument 
Identifiers for up to the maximum of 16 
arguments that can be passed. The number of 
arguments is optional ! Of course, the program 
is merely an example and serves no real 
practical purpose. 



-I 



AVHEN A.ISr A.RRA.Y 

ISN'T ! 

by Richard M. Mitchell 

In the preceding article, I pointed out 
that argument identifiers could be located in 
A/L code linked to XB. You may have noticed 

that as an example of identifiers 4 and 5, I 
used B() and B$(), respectively. Why not 
simply use B(3) and B$(3). for instance? Well. 
TI's protocol for argument identifiers is to 
consider array elements to be the same as 
non-arrays. And, yes, some sections of the 
E/A manual are a bit misleading! Array 
elements are handled exactly like non-array 
variables 1 Here is an A/L routine and the XB 
XB code to access it to show this point: 



(^ 



MYWS 



BSS >20 



MSG 


TEXT 


' INDENTIFIER 


ARGNOW 


BYTE 





BIAS 


BYTE 


>60 


ASCIIO 


BYTE 
EVEN 
END 


>30 



Note the "Video Multiple-Byte Write. BASIC 
Bias". VMBWBB, routine. It operates like a 
VMBW. but adds the >60 bias for XB. While the 





DEF 


NARRAY 


STRASG 


EQU 


>2010 


STRREF 


EQU 


>2014 


GPLWS 


EQU 


>83E0 


NARRAY 








LWPI 


MYWS 




CLR 


R0 




LI 


Rl,l 




LI 


R2 , BUFFER 




BLWP 


•STRREF 



<^ 
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# 



r^ 





LI 


R2,BUFFE2 




BLWP 


®STRASG 




LWPI 


GPLWS 




B 


9>006A 


MYWS 


BSS 


>20 


BUFFER 


BYTE 


>FF 




BSS 


>FF 


BUFFE2 


BYTE 


>03 




TEXT 


'BYE' 



EVEN 



END 



> 
> 

> 
> 



100 CALL INIT :: CALL LOAD { " 
DSKl.NARRAY/0") !118 
110 AS (3) -"HELLO" 1204 

120 CALL LINK("NARRAY",A${3) 
) !031 

130 PRINT A${3) !106 

140 END !139 



TRIJVI 
"With 

By Richard M. Mitchell 



LTRIM, 
nrsLys 
rted ! 



You've probably guessed by now that the 
articles on the precedeing pages might be 
leading up to something. The Assembly 
program listed below uses some of the 
techniques described in those articles and 
adds a few more, including access of 
multi-dimensional arrays from Assembly! 

Extended BASIC has every string 
function a user could ever need, right? 
Well. XB is powerful, but there are 
situations that require a bit more brute 
force. For instance, strings sometimes 
begin or end with a character or multiple 
occurrences of a character that is 
extraneous. It would be nice to be able to 
trim those extra characters from the string 
more quickly than can be done from XB. 
That's what the Assembly routine listed at 
the end of this article does! Here's an XB 
example of accessing the Assembly routines. 




> 
> 

> 

> 



100 CALL INIT 1157 

110 CALL LOAD ("DSKl. TRIM/0") 
1195 

120 DIM A$(2,2) i005 

130 FOR 1=0 TO 2 : : FOR J=l 

TO 2 :: A$ (I , J) =RPT$ ( " " , 1+2 



)&"HELLO"&RPTS{" ",I+2):: PR 
INT AS{I,J) ;LEN(A$(I,J) ) : : N 
EXT J : : NEXT I ! 223 

> 140 CALL LINK("LTRIM",A$(,) , 
" ") 1043 

> 150 CALL LINK ("TRIM", AS {.) ," 

") 1222 

> 160 FOR 1-0 TO 2 : : FOR J=l 
TO 2 :: PRINT AS (I , J) ;LEN(A$ 
( I , J ) ) : : NEXT J : : NEXT I ! 2 
51 

When LINKing to TRIM and LTRIM, the first 
parameter is the string to be trimmed and 
can be a string variable, single-dimension 
array or even a multi-dimension array! The 
second parameter is the character to be 
trimmed from the string and must always have 
a length of (a "null string", which has no 
effect on the trim) or 1 (obviously, 1 is 
preferred). The program supports either 
OPTION BASE 1 or OPTION BASE (thanks to a 
great tip from J. Peter Hoddie — many, many 
thanks, Peter! ). The program automatically 
calculates the number of dimensions and the 
number of elements dimensioned and operates 
on the entire array extremely quickly. TRIM 
parses from right to left, truncating the 
string at the first occurrence of a character 
other than the specified character (BS in 
the example program). LTRIM parses from 
left to right, eliminating occurrences of a 
character (again, BS in the example), until 
a character other than the specified 
character is parsed. 

TRIM and LTRIM are useful for removing 
blanks imposed in LINPUTing a FIXED length 
file, to remove carriage returns and line 
feeds from the ends of a series of strings, 
to remove the extraneous "0"'s that are 
sometimes derived at the end of a string 
while using CHARPAT, to remove characters 
resulting from conversions between strings 
and numbers, etc. It might be interesting 
to see what sorts of games, graphics, etc. 
might be possible using these routines. The 
Assembly routines occupy only 594 bytes! 

The April 1984 issue of The Smart 
Programmer, page 10, describes the make-up 
of the Symbol Table, describing in detail 
the byte structure that the following 
routines access. You may also want to refer 
to the Extended BASIC Scratchpad Map in the 
August, 1986 issue. And, refer to the 
material in the BASIC Support section of the 
E/A manual for information on array access. 
I hope everyone enjoys this article because 
if it weren't for this, this issue likely 
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would have bean completed a long time ago ! 
Many thanks go to D.C. (Doug) Warren for 
generously sharing his knowledge with me and 
for writing Explorer, which, along with a 
lot of patience, made this article 
possible. 

DEF TRIM,IjTRIM 
* PARM1«STRING,PARM2«CHAR,PARM3«BASE 



TR3 



TR4 



STRASG 

STRREF 

VMBR 

ARGIDl 

ARGS 

BASE 

VSTKPT 

GPLWS 

TRIM 
LTRIM 



TRl 



LOOP 



TR2 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

MOVE 

LWPI 

CLR 

LI 

LI 

BLWP 

LI 

CB 

JNE 

B 

CLR 

CB 

JNE 

MOVB 

SRL 

DEC 

SLA 

MOV 

S 

LI 

LI 

BLWP 

MOV 

LI 

LI 

BLWP 

SB 

MOVB 

SRL 

AI 

LI 

LI 

LI 

INCT 

BLWP 

CB 

JNE 

INC 

MPY 

MOV 

DEC 



>2010 
>2014 
>202C 
>83O0 
>8312 
>8343 
>836E 
>83E0 



Thanks, P. Hoddie! 



I 

I CHARACTER 
I TO TRIM 
I 



•ONE , SFLAG 

MYWS 

R0 

Rl,2 

R2,LEN2 

•STRREF 

R8,l 

•LEN2,»ZER0 I NULL? 

TRl I 

•EXIT2 

R8 

•ARGIDl, tFIVE ARRAY? 

TR4 

I OFFSET TO 



I 



1ST STACK 
POINTER 
ENTRY 
STK PTR 
OFFSET 
STK ENTRY 



I ADDRESS 



DIMS+80 



•ARGS , R3 

R3,8 

R3 

R3,3 

•VSTKPT , R0 

R3,R0 

Rl , STACKA 

R2,2 

•VMBR 

•STACKA, R0 

R1,DIMS 

R2,l 

•VMBR 

•OFFSTD,^DIMS OFFSET 

•DIMS , R4 

R4,8 

R0,4 

Rl , REGS 

R2,2 

R7,l 

R0 

•VMBR 

•BASE, •ZERO 

TR2 

R9 

R9,R7 

R8,R7 

R4 



FIGURE 
TOTAL 
# OF 
ELEMENTS 



TRIMl 
Tl 



T2 



EXIT 



EXIT2 



RETURN 



MYWS 

LSB3 

REG9 

STACKA 

LENl 

LEN2 

CHR2 

LEN3 

CHR3 

OFFSTD 

MAXl 

FLAG 

ZERO 

ONE 



JNE 

MOV 

CB 

JNE 

DEC 

LI 

LI 

BLWP 

CLR 

MOVB 

SRL 

CB 

JEQ 

LI 

JMP 

MOV 

CB 

JNE 

CI 

JEQ 

DEC 

CB 

JEQ 

INC 

INC 

JMP 

DEC 

JMP 

LI 

MOVB 

LI 

A 

BLWP 

MOVB 

MOVB 

CB 

JNE 

DEC 

JNE 

MOV 

MOVB 
LWPI 

B 

BSS 

EQU 

EQU 

DATA 

BYTE 

BSS 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 



BASE 0? 

ZERO OK 

STRING 

TO 



I TRIM 

I 



LOOP t 

R8,R0 

•BASE,«ZERO 

TR4 

R0 

Rl,l 

R2 , LENl 

•STRREF 

R6 

•LENl , R3 

R3,8 

•ONE , •FLAG 

TRIMl 

R2,l 

Tl 

R3,R2 

eLENl{R2) ,aCHR2 

EXIT 

R3,0 

EXIT 

R3 

•ONE , •FLAG 

T2 

R2 

R6 

Tl 

R2 

Tl 



Rl,l \ 

•LSB3,^LEN1(R6) 

R2 , LENl 

R6,R2 

•STRASG 

•MAXl, •LENl t 

•ONE , aL&N2 I 

•ARGIDl , OFIVE ARRAY? 

RETURN 

R8 

TR3 

•ONE , •LEN3 I 

•ZERO,aFLAG I 
GPLWS 

•>006A 



PARSE 

STRING 

AND 

MARK 

FOR 

TRIM 



WRITE 

TRIMMED 

STRING 



^ 



/ 
PREP FOR 
NEXT 



PREP FOR 
NEXT LINK 



>20 WORKSPACE 
MYWS+7 LSB OF R3 
MYWS+>12 MSB OF R9 

VALUE STACK ADDR 
>FF LEN OF STRING 
>FF STRING TO TRIM 

1 LEN OF CHARACTER 

CHAR TO TRIM 

1 LEN OF BASE 
OPTION BASE 
>80 DIM OFFSET 
>FF MAX LENGTH 

0=LTRIM,1=TRIM 

I #'s FOR BYTE 

1 I COMPARISONS 



^ 
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FIVE 
DIMS 



# 



t 



% 



BYTE 5 
BYTE 
EVEN 

END 



# OF DIM'S 



in retrospect, It looks rather simple. 
I guess that's the difference between 
hindsight and foresight! It's really 
interesting that as a program Improves, it 
often gets smaller! 



We should market to our friends, not people 
who don't like our style of computing. 

Jean -Louis Gassee. Apple V.P., in Lotus 
magazine. 



AVrite GRJKlS/ll 

program by Mike Dodd 
article by Richard Mitchell 

Here's an extremely useful XB Assembly 
routine for Gram Kracker^M owners. The 
advantages of this program are that it 
allows you to write to the write -protected 
GRAM'S, 3-7, and allows writing an entire 
string at a time! See the article that 
follows this one for an example of the XB 
usage of the program. Note that byte values 
above 32767 must be converted to a negative 
number by subtracting 65536, as with GK Util 
rs PEEKG and POKEG. Many thanks to Mike 
Dodd for this outstanding program! 



GWA 

GRA 

GWD 

NUMREF 

STRREF 

FAC 

HFF 

BANKl 

BANKO 

PBASIC 
PBASl 



PBAS2 



DEF 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

BYTE 

TEXT 

TEXT 

EVEN 

DATA 

MOVE 

MOVB 

OR I 

MOVB 

MOV 

MOV 

MOVB 



WRTGRM 

>9C02 

>9802 

>9C00 

>200C 

>2014 

>834A 

>FF 

'Enable bank 

'Restore W/P 



l&press 
& press 



SUBWSl, PBASl 
*R13,R0 

@1(R13) ,®>8C02 
R0, >40e0 

R0,»>8C02 
92{R13) ,R0 
®4(R13) ,R1 
*R0+,R2 



AI 

MOVB 
DEC 
JNE 
RTWP 
WRTGRM LWPI 

MOVB 
JEQ 
SRL 
LI 
LI 
LI 

BLHP 
CLR 
FCTNl TB 

JEQ 

CLR 
A CLR 

INC 

MOV 

BLWP 

LWPI 

BL 

LWPI 

MOV 

CLR 

INC 

MOV 

LI 

MOVB 

BLWP 

MOVB 

SWPB 

MOVB 

SWPB 

DEC 

KOVB 

SWPB 

MOVB 

MOVB 

SRL 

LI 

B MOVB 

DEC 
JNE 
MOVB 
SWPB 
MOVB 
DEC 
JNE 

FCTN2 TB 

JNE 
LI 
LI 
LI 

BLWP 

FCTN3 TB 

JEQ 
RETURN LWPI 

B 
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FCTN* 
FCTN' 



R2,>6e00 
R2,9>8C00 
Rl 
PBAS2 

MYWS 

•>8312,R6 
RETURN 
R6,9 

R0,>184 

Rl , BANKl 

R2,24 

•PBASIC 

R12 

7 

FCTNl 

R8 

R0 

R8 

R8,R1 

ONUMREF 

>83E0 

•>12B8 

MYWS 

•FAC , R9 

R0 
R8 
R8,R1 

R2 , BYTES L 
•HFF , *R2 

•STRREF 

•GRA,R7 
R7 

•GRA,R7 

R7 

R7 

R9,aGWA 

R9 

R9 , •GWA 

»BYTESL,R9 

R9,8 

R0 , BYTES 

*R0+,^GWD 

R9 

B 

R7 , 90 WA 

R7 

R7 , »GWA 

R6 

A 

7 

FCTN2 
R0,>184 
Rl , BANK0 
R2,24 

•PBASIC 
7 

FCTN3 

>83E0 
•>6A 



SU6WS1 
MYWS 

BYTES L 
BYTES 



DATA 

DATA 

DATA 

DATA 

BYTE 

BSS 

END 



0,0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0 




Seven New XIB cyVLL's 

Code by Mike Dodd 

Article by Mike Dodd and Richard M. Mitchell 

Implementation by Richard M. Mitchell 

Mike Dodd has developed seven new CALL'S 
for users of MG's GK Utility I version of 
Extended BASIC! 

Because seven CALL'S represents more data 
than we typically cover, we'll take a different 
approach to Implementing the CALL'S. Rather 
than key the data directly, risking an 
irrecoverable error, we'll use a program to 
checksum the data and write It to GRAM. And. 
you'll have a choice as to whether you want to 
use Mike Dodd's WRTGRM program. If you choose 
not to use WRTGRM. you'll use POKEG, which 
cannot be safely used to write to GRAM 6, where 
the code will end up, so we'll write to GRAM 2 
and then move it. 

The CALL'S are as follows: 

CALL BEEP — produces a beep tone. 

CALL HONK -- produces a honk tone. 

CALL STSPRT — stops all sprite motion. Note 
that sprite motion remains disabled even 
after the program is run (while the console 
is powered up), so follow CALL STSPRT with 
CALL GOSPRT before the end of your program. 

CALL GOSPRT — reverses CALL STSPRT, enabling 

sprite motion. 
CALL SCROPF - - disables all screen displays 

(the same thing as happens when the screen 

times out when no key has been depressed). 

CALL SCRON — enables the screen, reversing 
CALL SCROFP. 

CALL COLORS(F,B) — Sets color sets through 
14 to foreground color F and background 
color B. This is similar to the XB routine 
FOR X=0 TO 14 :: CALL COLOR(X,F.B) :: NEXT 
X. This CALL does it much faster. For 
maximum flexibility, the border color of the 
screen is not affected. The border color 
can be changed using CALL SCREEN(Z). If B 
in CALL COLORS is set to (transparent), 
the background color will appear the same as 
the color specified in the CALL SCREEN 
command. 



130 A(l) 

O 207 : : 

(I+D) :: 
140 END 



Note: If you have added your own code, be sure 
you have not used >D8FB through >D9C4 in GRAM, 
as that is where this modification will reside. 

I 

To install the changes, be sure to follow 
these instructions very carefully: 

1) Be sure the contents of your GRAM 2 are 
saved to disk (for the POKEG installation 
method, the area that GK Utility I leaves free 
beginning at >5208 will be used for temporary 
storage of 207 bytes). 

2) A) Key in the following program and save it 
to disk if you will not be using Mike Dodd's 
WRTGRM program (see 2B for the modifications 
for the WRTGRM program): 

> 100 DIM A(208) !157 

> 110 FOR 1=1 TO 208 : : READ A 
$ :: CALL HEX_DEC (A$ ,D) : : A( 
I)=D :: N=N+A(I):: NEXT I !0 
88 

> 120 IF NO4O018 THEN PRINT " 
DATA INTEGRITY ERROR" : : END 

■242 

^A(l)-1 : : FOR 1=1 T 
CALL P0KEG(A(1)+I,A 
NEXT I !053 

> 140 END 1139 

> 1000 DATA 5208 ! 046 

> 2000 DATA 06,D8,FB 1193 

> 3000 DATA D9,14 !188 

> 4000 DATA 86,A3,70,86,8F,FC, 
FA,BD,O0,8F,ED,00 !078 

> 4010 DATA 86,8F,FC,FC,D5,00, 
8F,ED,00,59,13,OB 1062 

> 4020 DATA 00 !189 

> 5000 DATA D9, ID, 04, 42, 45, 45, 
50,D9,5C,D9,26 !012 

> 5010 DATA 04,48,4F,4E,4B,D9, 
62, D9, 31, 06, 53, 54 1242 

> 5020 DATA 53 , 50 , 52 , 54 , D9 , 68 , 
D9,3C,06,47,4F,53 !234 

> 5030 DATA 50 , 52 , 54 , D9 , 6F , D9 , 
47,06,53,43, 52, 4F 1232 

> 5040 DATA 46,46,D9,78,D9,51, 
05,53,43,52.4F,4E !237 

> 5050 DATA D9 , 85 , 00 , 00 , 06 , 43 , 
4F,4C,4F, 52,53,09 1234 

> 5060 DATA 9A, 06, 00, 34, 06, 00, 
12,06,00,36,06,00 !129 

> 5070 DATA 12, 36, 80, C2, 40, 06, 
O0,12,B2,80,C2,BF !218 

> 5080 DATA 06 , 00 , 12 , A0 , EO , 39 , 
00, 01, 01,09,76, BE 1202 

> 5090 DATA 80 ,D4 , AO , 06 , 00 , 12 , 
39,00,01,01,09,77 !175 

> 5100 DATA BE, 80, 04, EO, 06, 00, 
12,0F,79,0F,74,B6 1000 



# 



^ 
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YOUR WINDOW INTO THE 99/4A 

Gaze Into the inner workings of your 99/4A with EXPLORER. Just load it and 
with a single keystroke EXPLORER will start up where your console, application 
program or module left off, but YOU will be in PULL CONTROL! Watch EXPLORER'S 
screens, with dynamic information, or flip to the ACTUAL Program Screen running 
In slower motion under YOUR CONTROL. Track, Display, Edit and Search VDP 
Memory, CPU Memory or GROM/GRAM Memory. Set breakpoints for pausing execution 
at ROM, RAM. VDP, GROM or GRAM addresses. EXPLORER displays the current 
Registers. GPL Status and VDP Registers. And. each machine instruction is 
disassembled. EXPLORER'S Options Screen provides arithmetic and logical 
operations in Decimal, Hex and Binary. 

Sounds exciting, right? Well, the best part is that EXPLORER is now better than 

ever. EXPLORER now loads through standard module loaders, allowing you to load 

the program from RAMdlsk. floppy disk or hard disk. And. a special transparent 
loader is provided for quick loading f)H>m XB. 

System requirements: 99/4A with Disk System, Memory Expansion and a standard 

loading environment such as Extended BASIC. 
Editor/Assembler. Mini Memory or Gram Kracker^M 

Only $24.96 

'x Gram Kracker is a Trademark of MG 



WORDS WERE JUST DATA UNTIL... 

STRING MASTER 

A POWERFUL STRING MANIPULATION PACKAGE FOR THE 99/4A 



STRING MASTER provides the string functions Extended BASIC users have always 
wanted. Host of STRING MASTER'S functions work on string variables or an entire 
string array. TRIM or LTRIH unwanted leading or trailing characters. CONCTL or 
CONCTR concatenates any combination of string variables and string arrays. 
That's right, concatenate the elements of one array to the elements of another 
array in a single Extended BASIC statement) POKE and PEEK string variables to 
and from VDP or CPU memory. SEARCH a string variable or string array for a 
word or phrase. Many other features I 

Available June, 1987 
System Requirements: 99/4A, Disk System. Memory Expansion, Extended BASIC 

Only 1 19.96 



Bytemaster Computer Services 
171 Mustang Street 
Sulphur, LA 70663 

Please add $2.00 shipping and handling per software order 

Payments accepted by personal check or money order. 

Foreign payments by international money order, olease. 



Asgard Software 

is proud to present a 
piece of the future: 

The first two commercial programs 
written in c99 for the 99/4A — 
The fastest language for the 99/4A 
outside of assembly! 

High Gravity 



Is High Gravity an educational game or a game 
program that's educational? Who knows which, and 
it really doesn't matter considering that this 
incredible simulation written in c99 (a language 
faster than Forth and easier to use than BASIC) is 
one of the best programs ever written for the 99/4A 
in any language! 
U High Gravity, by Tom Wible {a professional 
programmer), puts you in command of a relief 
spacecraft sent to aid a space station trapped in a 
strange solar system. The planets in the system are 
thick as flies, and prevent anyone from leaving or 
entering the solar system to rescue the unfortunate 
people in the space station. Your mission is to shoot 
a capsule of supplies to the stranded astronauts, and 
you only have ten capsules of supplies on hand. 
Worse yet, you can't guide the capsules through 
since they have no engines. Fantastic graphics make 
this game colorful as well as exciting. 
High Gravity is also an extremely accurate 
simulation of the Laws of Gravity and the motion 
of projectiles. The fact that this program is a 
sophisticated lesson on physics is not apparant — 
it's a really fun game that gives hours of enjoyment 
to children AND adults. However, for the 
educational user all varibles of the program may 
be pre-set; including the initial velocity, the density, 
size, and spacing of the planets, and much more. 
High Gravity will even let you save and load 
interesting flight paths of projectiles for later study 
— a library of such paths is included with the 
program . 

In short. High Gravity is a sophisticated simulation 
of space flight that is both entertaining and 
educational. It is an ideal teacher for the physics 
student (of all levels), and an ideal game for all ages. 




Computer 
■Shopper' 




+> 



It is simple to use and fully documented. It requires 
the Editor /Assembler module, 32 K and a disk 
system. Available for only £14.95. 



Total Filer 

Do you have disks and disks full of Tl-Writer text 
files cluttering up your disk library? Do you often 
catalog one of your Tl-Writer disks and find files 
that you didn't know you had, or even know what 
they are? Well then, we would like to introduce to 
you the greatest tool for user's of Tl-Writer since 
the spelling checker; the first and only database 
designed for text — Total Filer by Warren Agee. 
Some database programs say they will let you 
organize anything, but nothing matches the speed, 
power and flexibility of a program exclusively 
designed to let you organize text when it comes to 
organizing your Tl-Writer files. Total Filer is a very 
easy-to-use solution for a complex problem. It is 
written in c99, an incredibly fast language for the 
99/4A, and was designed specifically for handling 
text. 

With Total Filer you can easily create a fiie-by-file 
reference of all your text files. Your index can 
include multiple keyword references for quick 
searches, as well as several layers of keywords for 
in-depth descriptions. For searching, Total Filer even 
includes utilities for creating a master listing of the 
index, as well as letting you compress it to save 
space on your data disks. Total Filer is truly a tool 
for the "power user." 

Total Filer is also very flexible, allowing users to 
do everything from configure the program for any 
hardware combination to setting the names of the 
prompts for different functions. Total Filer is the 
penultimate tool for organizing text of any sort, 
from magazine articles to computer files, yet it is 
easy to use and fully documented. It requires the 
Editor/ Assembler module, 32K and a disk system. 
Available for only $24.95. 



Asgard Software 

P.O. Box 10306 
Rockville, MD 20850 
(301) 345-2492 

"Serving the TI Community" 

Note c99 compibr for the W 4A by Clint Pulky 



m 



f% 



# 



# 



> 
> 



# 



5110 DATA 0F,12,00,06,A9,D6, 

06,D9,92,93,4A,BD !004 

5120 DATA 00,4A,E3,O0,00,0C, 

06,D9,92,93,4A,E3 1227 

5130 DATA 4A,00,08,B4,00,4A, 

BC,A8,00,00,35,00 !202 

5140 DATA 1F,A8,01,A8,00,0F, 

79,06,00,12 !251 

30070 SUB HEX_DEC{H$,D) : : D= 

:: L=LEN(H$):: FOR 1=1 TO 

L :: P=POS("0123456789ABCDEF 
",SEG${H$,I,1) ,1)-1 :: D=D+P 
*16*(L-I):: NEXT I :: SUBEND 
il85 

B) If you want to use WRTGRM (and not have 
to manually move bytes from the GK 
Editor), omit lines 100 through 1000 above 
and add these lines to the above program: 

100 CALL INIT :: CALL LOAD ( " 
DSKl.WRTGRM/0") : : DISPLAY AT 
(7,l)ERa^^ ALL: "NEXT PROMPT 
IN ABOUT 70 SECONDS" 

1095 

110 READ A$,A,B$,B,C$,C,DS,D 

:: CALL HEX_DEC_M (A$ , Al) : : 
CALL HEX_DEC_M(B$,B1) : : CALL 

HEX_DEC_M(C$,C1) : : CALL HEX 
_DEC_M{D$,D1) !184 

120 CALL PREPWRT(A,W1,W1$) !2 

32 

130 

35 

140 

38 

150 

41 

160 IF {W1+W2+W3+W4) O19018 
THEN PRINT "DATA INTEGRITY E 
RROR" :: END !128 
170 DISPLAY AT (15,1) ERASE AL 
L:"DO YOU HAVE A MYARC EXTEN 
DEDBASIC PROM INSTALLED?" : "Y 
" !091 

180 ACCEPT AT (17,1) BEEP VALI 
DATE("YN")SIZE(-1) :R$ ! 232 
190 IF R$="Y" THEN CALL LINK 
( "WRTGRM" , Bl , W2$ , Dl , W4$ ) ELSE 

CALL LINK("WRTGRM",A1,W1$,B 
1,W2$,C1,W3$,D1,W4$) !158 
200 END !139 

1000 DATA 6372,3,D789,2,D8FB 
,25,D914,177 !222 
30080 SUB HEX_DEC_M{H$,D) : : 
D=0 :: L=LEN(H$):: FOR 1=1 T 

O L :: P=*POS{"0123456789ABCD 
EF",SEG$(H$,I,1) ,1)-1 :: D=D 
+P*16" (L-I) : : NEXT I !061 

30090 IF D>32767 THEN D=D-65 



CALL PREPWRT(B,W2,W2$) !2 
CALL PREPWRT(C,W3,W3$) 12 
CALL PREPWRT ( D , W4 , W4$ ) ! 2 



536 !236 

> 30100 SUBEND 1168 

> 30110 SUB PREPWRT{A,W1,W1$) ! 
236 

> 30120 FOR 1=1 TO A : : READ Z 
$ :: CALL HEX_DEC (Z$ , Z) : : Wl 
==W1+Z :: W1$=W1$&CHR$(Z) :: N 
EXT I : : SUBEND 1239 

3) Run the program. If "DATA INTEGRITY ERROR" 
is printed on your screen, then the checksum 
total is in error, indicating you have keyed 
the DATA and/or program in improperly. If you 
used the WRTGRM method in 2B above, do not 
perform the actions in steps 4 through 9, 
though you may want to read step 5. 

4) Switch to the Gram Kracker^" editor. Switch 
write protect off. Press <FCTN 1> until you 

are in the G(RAM) window. 

5) This is where things get a bit sticky. If 
you have a MYARC XB PROM installed, skip to 
Step 8. Steps 6 and 7 cause a return to the 
Power-up Title Screen if the W/P switch on the 
GK is disabled. However, the MYARC PROM has 
power-up priority and may load data from the 
PROM if the W/P switch is disabled (when this 
happens, you'll see "128K O.S." on your Main 
Menu). Checking for the position of the W/P 
switch through Mike's routine is very useful, 
as XB will go "out to lunch" if W/P is disabled 
because XB has 2 banks of ROM that are banked 
by doing a pseudo-write to ROM, so that if an 
actual write is done, XB will not bank and will 
be left in the wrong bank of ROM for the 
current activity. MYARC XB owners will have to 
continue to visually inspect the W/P switch. 
Note that WRTGRM is not affected by the MYARC 
PROM because there is no power-up during the 
execution of WRTGRM. 

6) Set the following values for a MOVE: 

START FINISH DEST 
5208 520A g6372 

Press <FCTN 2>. 

7) Set the following values for a MOVE: 

START FINISH DEST 
520D 5225 gD8FB 

Press <FCTN 2>. 

8) Set the following values for a MOVE: 

START FINISH DEST 
520B 520C gD789 
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Press <PCTN 2>. 

Note: If you have added your own CALL'S, 
change DEST gD789 to the address of the end of 
your link table for subprogram CALL'S, which 
can be determined by using Subprogram Finder. 

9) Set the following values for a MOVE: 

START FINISH DEST 
5226 52D6 gD914 

Press <FCTN 2>. 

10) If you have the MYARC XB PROM, be 
absolutely certain your W/P switch is on W/P! 

11) Save the revised module to disk, using a 

filename different from the previous XB 
filename. 

12) Run Mike Dodd's Subprogram Finder program 
if you wish. 

13) Test the new CALL'S. 



TECHNICAL INFORMATION: 

CALL BEEP and CALL HONK operate by using 
GPL routines >34 and >36, respectively. 

CALL STSPRT and CALL GOSPRT operate by 
setting and resetting, respectively, bit 1 at 

>83C2. 

CALL SCROFF and CALL SCRON operate by 
setting and resetting, respectively, bit 1 of 
VDP Register 1. 

Important GRAM addresses: 
GRAM 6 

>D951 (>00.>00). This is the new end of 
the link table used by subprogram CALL'S in XB. 

There are now 1,571 free bytes of memory 
in GRAM 6 from >D9C5 through >DFE7. 



Oop»s ! 

Well, due to a goof by the Editor, 
Issue's GK Menu article didn't cover the 
revisions for the alpha menu. Here are 
Freeman's revisions: 



last 
new 
Tom 



2) Search for A6 75 31 and change the 31 to 41. 
Your search should locate at about g02FC. 

3) Save the revised GRAM 0. 

An additional note is that if you are 
using Gram Packer to create menu's, you should 
plan the number of menu items to be 16 minus 
the maximum number of menu options of a loaded 
module. For instance, if the Navarone Database 
Manager is to be loaded, it will generate 4 
menu options, so there should be no more than 
12 items on the original main menu. 



The 80SYLK program in Super 99 Monthly 
(and on the Best of Super 99 Monthly diskettes) 
used an early version of the R_A_W assembly 
program, so it may not work with some (not 
all) MYARC disk controllers. XXB/1-2, as 
appeared in the Genial TRA VelER dlskazine, 
includes an improved R_A_W routine and should 
alleviate any problems experienced with the 
80SYLK program. The R_A_W modification 
involved changing the location of a buffer in VDP. 



BasicSort Version 2 

A special report by Richard M. Mitchell 

BasicSort is an excellent program. The 
program will sort numerics, strings or string 
segments and will perform up to 16 levels of 
sorts with a single program statement! BasicSort 
is written in Assembly, so it is extremely fast 
and is ideal for use with your BASIC or Extended 
BASIC programs. The documentation is 
thorough and well-written, on an intermediate 
level. A better bargain is not available in 
computerdom, as BasicSort is only $15 plus $3 
shipping and handling from Andreas L. 
Dessoff, 1041 Church Hill Road. Fairfield, 
CT 06432. 



E/yv E n. In EL n cements 

Code by Craig Miller 

Article by Richard M. Mitchell 



1) Search for BE 58 30 and change the 30 to 40. 
Your search should locate at about g0275. 



Craig Miller has used DISkASSEMBLER^M to 
disassemble the EDITl file of the Editor/ 
Assembler and has come up with some useful 
modifications. The instructions that 
are for implementation for GK Utility 
version, but may be modifiable for 
implementations of E/A. 



follow 

I E/A 

other 



^ 



^ 
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1) Using the GK Memory Editor, search for: 



06 FF 00 03 



I found the above at g7AA2. Change it to: 
03 FF 00 03 

This is part of the delay before a key goes 
into auto-repeat. You can also change the 
03 to any number from 01 through 0F to 
make the cursor blink faster (01) or slower 
(0F) (I like 05). 

2) Search for: 

0A 00 06 00 
I found this at g7BB4. Change it to: 

00 01 06 00 
This is the delay loop between keystrokes. 

With the above changes in place you will 
notice that the cursor moves quite a bit faster 
and goes Into auto-repeat quite a bit faster. 

After making the changes, you'll need to 
follow the instructions on page 22 of the GK 
Utility I manual to change the checksum for 
your new E/A. 

Some other interesting addresses (based on 
the files I'm using) for possible changes are: 

g98lC-g9826 End of File marker. 
g9E10 Command Line text. 



package (see The Smart Programmer, July 1986 
for features), the code of Mike Dodd that 
appears in this Issue, plus CALL ALL(x), 
fills screen with a character; CALL CHIMES, 
chimes sound; CALL GOSUB(num var), allows 
numeric variable; CALL GOTO(num var). allows 
numeric variable; CALL KEYS("keylist",num 
var). allows valid key list; CALL ALOCK(x), 
checks alpha lock key; CALL SHIFT(x), checks 
shift key; CALL CTRL(x). checks control key; 
CALL FCTN(x). checks function key. Two 
other enhancements were pending at press 
time. CALL VERSION will return 120 instead 
of the previous 110 (or the 100 of the 
original XB). The package is 100% 
compatible with all TI XB programs. The new 
package is priced at $59.95 in the Spring 
Triton catalog. 

In other news from Triton, the firm has 
now shipped its Triton Turbo XT computer (see 
The Smart Programmer, November. 1986), a PC 
clone that can interface with the 9 9/4 A 
keyboard or a standard XT keyboard. 



fff 



In"v 






by Richard M. Mitchell 

A number of you have asked how to add a 
keyboard scan (for the keys "1" through "4") 
to the "Mouse" XB program that appeared in 
the January 1985 issue of Super 99 Monthly 
(and the S99M disks). Simply relocate the 
sprite to a position next to the appropriate 
number, as follows: 



You may also want to search for the default 
Tabs (they're offset by minus one). 



On — line Con.f erenco 

On May 16, Los Angeles (USA), Ottawa 
(Canada) and Derby (England) will hold 99/4A 
Fairs. The 3 shows will be linked via an 
on-line conference on GEnieT". The event is 
set for 10 AM in LA, 1 PM in Ottawa and 6 PM 
in Derby. Figure out what time it will be 
in your area and you can join In! 



21040 CALL KEY(2,K1,S} : : CAL 
L KEY(1,K,S):: IF Kl=18 OR K 
»18 THEN 21046 1150 

21044 IF K=19 THEN K=K-13 EL 
SE IF K<7 OR K>9 THEN 21020 
!114 

21045 X«(K-5)*16+9 :: CALL L 
OCATE(#1,X,40) 1058 

21046 CALL POSITION ( #1, X, Y) ! 
093 

For those of you who haven't caught on. 
an "inverted mouse" is a joystick! Ha! 



^ 



Triton :X.B 

Triton Products Company has announced 
Super Extended BASIC, which adds many new 
features to XB. Included are the XB 
enhancements that appeared in MG's GK Utility I 



For Sale: Extra Equipment. 99/4A. PEB, 
TI Disk Controller. CorComp RS-232, 
TI SS/SD drive, TI 32K, TI XB. E/A 
with manual. Good condition. $240, 
FOB Sulphur. LA. Phone (318) 527-0035. 
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BYTEMASTER ORDER FORM 

The Smart Programmer 



HkVm 



SPl 


$18.00 


SF2 


$15.00 


SP3 


$20.00 


SP4 


$32.00 


SP5A-G 


$ 1.75 


SP6A-G 


$ 2.75 


SP7A-G 


$ 2.50 


SP8A-G 


$ 3.50 


Super 


99 Mot: 


SMI 


$18.00 


SM2A-R 


$ 1.'00 


SM3A-R 


$1.50 


SM6A-R 


$2.50 


SH4 


$12.00 


SMS 


$15.00 



U.S. AND CANADA FIRST CLASS 
U.S. THIRD CLASS (no back issues) 
FOREIGN SURFACE (no back issues) 
FOREIGN AIRMAIL 
U.S. JUNE - DEC 1986, ea. 
FOREIGN JUNE - DEC 1986, ea. 
U.S. JAN 84-AUG 84, photostats, ea. 
FOREIGN JAN 84 - AUG 84, 
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STA 





ZIP CODE 



COUNTRY 



Complete set of 18 back issues 



ents ^ 



Back issues - ea 
Back issues - ea 



(U.S. Third Class) 
(Canada and U.S. 
First Class) 
(Foreign Air Mail) 
(non-FORTH) 
Super 99 Handicapper (thoroughbreds) 
(req. XB, 32K, Disk, Printer) 



Back issues - ea 
Programs on disk 



ITEM # QTY 



EACH 



AMOUNT 



New 
+-+ 

I I 
+-+ 



Renewal 
+-+ 



I 
+-+ 



I 
I 



Louisiana residents must add 4% sales tax. Calcasieu 1%. iSulvhur 





mone 



omcute 
esdond^nce 



The Smart Programmer is published monthly by Bytemaster 

Services, 171 Mustang Street, Sulphur, LA 7C663. AlUco 

received will be considered unconditionally assigned for p 

copyright and subject to editing and comments by the i Edi 

Smart Programmer. Each contribution to this issue a^d 

whole COPYRIGHT 1986 by Bytemaster Computer Services. All 

Copying done for other than personal archival or internal 

without the permission of Bytemaster Computer Services is proh. 

Bytemaster Computer Services assumes no liability for errous in arx^^l^^. 
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Editor 



Richard M. Mitchell 



Staff 



Craig Miller Steven J. 

Charles M. Robertson Barry A. 
Mariusz Stanczak D.C. Warren 



Szymkiewicz, «D 
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DISkASSEMBLER and Gram Kracker are trademarks of Millers Grfiph^s ^' J 



Bytemaster Computer Services 
171 Mustang Street 
Sulphur, LA 70663-6724 
U.S.A. 
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